home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / shared.dir / 00208.ls < prev    next >
Encoding:
Text File  |  1996-03-20  |  3.8 KB  |  116 lines
  1. on mouseRoll
  2.   global mapflag, mapCast, locationCast, stateName, regSet, flag, storeTotal
  3.   mstartFIX()
  4.   if soundBusy(1) then
  5.     nothing()
  6.   else
  7.     set the visible of sprite 4 to 0
  8.     if mapflag > 0 then
  9.       set x to mapCast + 1
  10.       set the castNum of sprite mapflag to x
  11.       updateStage()
  12.       startTimer()
  13.       repeat while the timer < 10
  14.         nothing()
  15.       end repeat
  16.       set x to x - 1
  17.       set the castNum of sprite mapflag to x
  18.     end if
  19.     set flag to 0
  20.     repeat with whichSprite = 48 down to 1
  21.       if rollOver(whichSprite) then
  22.         set theCastnum to the castNum of sprite whichSprite
  23.         if theCastnum > 0 then
  24.           set castName to the name of cast theCastnum
  25.           if stringp(castName) then
  26.             if char 1 of castName = "!" then
  27.               set flag to 1
  28.               exit repeat
  29.             end if
  30.           end if
  31.         end if
  32.       end if
  33.     end repeat
  34.     if flag = 1 then
  35.       if char 2 of the name of cast theCastnum = "L" then
  36.         set stateName to line the mouseLine of field theCastnum
  37.         set stateNum to the number of cast stateName
  38.         set the castNum of sprite 18 to stateNum
  39.         set the visible of sprite 18 to 1
  40.         set the locH of sprite 4 to the locH of sprite whichSprite
  41.         set Vert to the locV of sprite whichSprite
  42.         set lineDown to the mouseLine - 1
  43.         set moveDown to lineDown * 12
  44.         set moveDtotal to moveDown + Vert
  45.         set the locV of sprite 4 to moveDtotal
  46.         set the visible of sprite 4 to 1
  47.         updateStage()
  48.         startTimer()
  49.         repeat while the timer < 15
  50.           nothing()
  51.         end repeat
  52.       end if
  53.       if char 2 of the name of cast theCastnum = "F" then
  54.         set variable to the castNum of sprite whichSprite
  55.         set variable to variable + 1
  56.         set the castNum of sprite whichSprite to variable
  57.         updateStage()
  58.         startTimer()
  59.         repeat while the timer < 10
  60.           nothing()
  61.         end repeat
  62.         set variable to variable - 1
  63.         set the castNum of sprite whichSprite to variable
  64.       end if
  65.       if char 2 of the name of cast theCastnum = "M" then
  66.         set variable to the castNum of sprite whichSprite
  67.         set variable to variable - 1
  68.         set the text of cast "storeLocation" to the text of cast variable
  69.         set locationCast to variable
  70.         updateStage()
  71.         set mapCast to the castNum of sprite whichSprite
  72.         set mapflag to whichSprite
  73.         set x to mapCast - 2
  74.         if the castType of cast x = #text then
  75.           set the visible of sprite 32 to 1
  76.           set storeTotal to the name of cast x
  77.           set ButtonText to "Store 1 of" && storeTotal
  78.           set the text of cast "nextButton" to ButtonText
  79.         else
  80.           set the visible of sprite 32 to 0
  81.         end if
  82.       end if
  83.       if char 2 of the name of cast theCastnum = "B" then
  84.         repeat with i = 1 to 23
  85.           set variable to the castNum of sprite whichSprite
  86.           set variable to variable + 1
  87.           set the castNum of sprite whichSprite to variable
  88.           puppetSound("boink")
  89.           updateStage()
  90.           startTimer()
  91.           repeat while the timer < 3
  92.             nothing()
  93.           end repeat
  94.           if the name of cast variable = "stop" then
  95.             exit repeat
  96.           end if
  97.         end repeat
  98.         puppetSound(0)
  99.         startTimer()
  100.         repeat while the timer < 50
  101.           nothing()
  102.         end repeat
  103.         set variable to variable - i
  104.         set the castNum of sprite whichSprite to variable
  105.         set soundNum to variable - 1
  106.         if (the name of cast soundNum > 0) and (the castType of cast soundNum = #sound) then
  107.           set soundName to the name of cast soundNum
  108.           puppetSound(soundName)
  109.           updateStage()
  110.         end if
  111.       end if
  112.     end if
  113.   end if
  114.   set the visible of sprite 18 to 1
  115. end
  116.